home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / execto.c < prev    next >
C/C++ Source or Header  |  1991-07-05  |  662b  |  23 lines
  1. /*****************************************************************************
  2.  
  3.     ExeCtO()
  4.  
  5.     This function executes a ^O (control-O or caret-O) command.  This
  6. command sets the radix to octal.
  7.  
  8. *****************************************************************************/
  9.  
  10. #include "zport.h"        /* define portability identifiers */
  11. #include "tecoc.h"        /* define general identifiers */
  12. #include "defext.h"        /* define external global variables */
  13.  
  14. DEFAULT ExeCtO()        /* execute a ^O (control-O) command */
  15. {
  16.     DBGFEN(1,"ExeCtO",NULL);
  17.     Radix = 8;            /* set radix to octal */
  18.     CmdMod = '\0';            /* clear modifiers flags */
  19.  
  20.     DBGFEX(1,DbgFNm,"SUCCESS");
  21.     return SUCCESS;
  22. }
  23.